home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cs.arizona.edu
/
ftp.cs.arizona.edu.tar
/
ftp.cs.arizona.edu
/
icon
/
newsgrp
/
group00a.txt
/
000051_icon-group-sender _Mon Apr 10 09:43:00 2000.msg
< prev
next >
Wrap
Internet Message Format
|
2001-01-03
|
1KB
Return-Path: <icon-group-sender>
Received: (from root@localhost)
by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id JAA09624
for icon-group-addresses; Mon, 10 Apr 2000 09:42:48 -0700 (MST)
Message-Id: <200004101642.JAA09624@baskerville.CS.Arizona.EDU>
From: "F.G. van DORP" <F.G.van.Dorp@digimedia.nl>
X-Newsgroups: comp.lang.icon
Subject: Reversible assignment really reversible ?
X-Newsreader: Forte Agent 1.7/32.534
Date: Sat, 08 Apr 2000 18:16:38 GMT
X-Complaints-To: abuse@chello.nl
X-Trace: nlnews00.chello.com 955217798 212.187.67.243 (Sat, 08 Apr 2000 17:16:38 GMT)
To: icon-group@optima.CS.Arizona.EDU
Errors-To: icon-group-errors@optima.CS.Arizona.EDU
Status: RO
# WINICON 9.3.1
procedure main()
local i1,i2,i3,j1,j2,k,a1,a2,a3
i1:=2
j1:=4
i2:=4; i3:=i2
j2:=2
k:=3
# co-exp creation & @ctivation not really necessary
a1:=create((i1 <- j1) > k)
a2:=create((i2 <- j2) > k)
a3:=create(((i2:=j2)|(i2:=i3)) > k)
write(@a3)
write("co-exp1: ",@a1)
write("nested1: ",((i1 <- j1) > k))
write("muteva1: ",((i1 <- j1) & (i1 > k)))
# the following set doesn't work, so is <-
# really implemented or just an alias for := ?
write("co-exp2: ",@a2)
write("nested2: ",((i2 <- j2) > k))
write("muteva2: ",((i2 <- j2) & (i2 > k)))
end